#!/usr/bin/perl
# Serveur.
use IO::Socket;

# Creation du socket.

$server = IO::Socket::INET->new(
  LocalPort => 9998, Type    => SOCK_STREAM,
  Reuse     => 1,    Listen  => 5)
    or die "Creation du serveur impossible.\n";
print "Demarrage du serveur..\n";

while ($client = $server->accept()) {
    print $client "Connection etablie !\n";
    $pid = fork;
    die "Clonage impossible !" unless defined ($pid);
    if ($pid ==0) {
	
    # Le fils recoit les donnees du client.
    
	while ($ligne = <$client> ) {
	    print "client > $ligne";
	}
    } else {
	
    # Le pere envoie les donnees au client.
    
	while ($ligne = <>) {
	    print $client $ligne . "\n";
	    print "J'ai envoye";
	}
    }
}
